Excel / VBA CStr function

What is CStr function in VBA

The CStr function is used to convert a value to a string.

It takes an expression as an argument i.e.

CStr( expression )

The examples below show the usage of CStr function.

An example to convert an Integer to String by CStr

We have an integer type variable and assigned it a value. Then we used CStr function to convert it to a string.

Sub cstr_ex()

Dim num As Integer

Dim str As String

num = 100

str = CStr(num)


End Sub

Convert a Single variable (with a decimal number) to String

Similarly, you may convert a decimal number to string by CStr function. The following VBA program shows:

Sub cstr_ex()

Dim dec As Single
Dim str As String

dec = 100.55

str = CStr(dec)

End Sub

Converting date to string example

Sub cstr_ex()
Dim dt As Date

Dim str As String

dt = #10/10/2019#

str = CStr(dt)

MsgBox (str)

End Sub

Converting cell values to String example

A date variable value is converted to string and displayed in a message box by CStr function:

Sub cstr_ex()

Dim dt As Date

Dim str As String

dt = #10/10/2019#

str = CStr(dt)

MsgBox ("After Date to String Conversion: " & str)

End Sub

Output:

Using Excel cell numbers and writing in another cell after conversion

We will use the A2 and A3 cells' value (that contain numbers) in the CStr function and write the converted value to the B2 and B3 cells.

Sub cstr_ex()

Range("B2").Value = CStr(Range("A2").Value)

Range("B3").Value = Range("A3").Value


End Sub

Output:

Writing different values to cells after conversion by CStr

In this example, we have a number, a decimal number, a string, text with a number, and date in A2 to A5 cells.

We used a for loop to iterate through all cells and assign the respective values to B cells after conversion by CStr function.

See the code and output:

Sub cstr_ex()

Dim i

For i = 2 To 6

Range("B" & i).Value = CStr(Range("A" & i).Value)

Next i

End Sub

Output: