Try this
Code:
Private Sub Command1_Click()
Dim str1 As String
Dim intCounter As Integer
Dim i As Long
str1 = "str1"

For i = 1 To 2
    intCounter = intCounter + 1
    str1 = "Str" & intCounter
    MsgBox str1
Next
End Sub