You can use the **CInt** function in VBA to convert a text string to an integer.

Here are two common ways to use this function in practice:

**Method 1: Convert String to Integer in VBA**

Sub ConvertStringToInteger() Dim i As Integer For i = 2 To 11 Range("B" & i) = CInt(Range("A" & i)) Next i End Sub

This particular macro will convert each string in the range **A2:A11** to an integer and display the integers in the range **B2:B11**.

**Method 2: Convert String to Integer in VBA (Only if String is a Number)**

**Sub ConvertStringToInteger()
Dim i As Integer
For i = 2 To 11
If IsNumeric(Range("A" & i)) Then
Range("B" & i) = CInt(Range("A" & i))
Else
Range("B" & i) = 0
End If
Next i
End Sub
**

This particular macro will convert each string in the range **A2:A11** to an integer only if the string is a number. Otherwise, the string will be converted to a value of zero.

The following examples show how to use each method in practice.

**Example 1: Convert String to Integer in VBA**

Suppose we have the following column of values in Excel that are currently formatted as text strings:

Suppose we would like to convert each string to an integer and display the integers in column B.

We can create the following macro to do so:

Sub ConvertStringToInteger() Dim i As Integer For i = 2 To 11 Range("B" & i) = CInt(Range("A" & i)) Next i End Sub

When we run this macro, we receive the following output:

Notice that each text string in column A has been converted to an integer and is displayed in column B.

**Example 2: Convert String to Integer in VBA (Only if String is a Number)**

Suppose we have the following column of values in Excel that are currently formatted as text strings:

Suppose we would like to convert each string to an integer *only if the string is a number* and display the integers in column B.

We can create the following macro to do so:

**Sub ConvertStringToInteger()
Dim i As Integer
For i = 2 To 11
If IsNumeric(Range("A" & i)) Then
Range("B" & i) = CInt(Range("A" & i))
Else
Range("B" & i) = 0
End If
Next i
End Sub**

When we run this macro, we receive the following output:

Notice that only the text strings in column A that are numbers are converted to integers in column B.

Otherwise, the text strings are simply converted to a value of zero.

**Note**: You can find the complete documentation for the VBA **Cint **function here.

**Additional Resources**

The following tutorials explain how to perform other common tasks in VBA:

VBA: How to Remove Spaces from String

VBA: How to Count Occurrences of Character in String

VBA: How to Check if String Contains Another String