Code:
Private Sub Command1_Click()
Dim theArray() As String
    theArray = String.Split("user pass", " ")
    For i As Integer= LBound(theArray) To UBound(theArray)
        If IsOdd(i) = False Then Debug.Print theArray(i) & " - user"
        If IsOdd(i) = True Then Debug.Print theArray(i) & " - pass"
    Next i
End Sub

Function IsOdd(ByVal lngTheNumber As Long) As Boolean
    IsOdd = IIf((lngTheNumber Mod 2) = 0, False, True)
End Function