Konvertering af en streng

Dim bogstav(0 To 255) As String
Private Sub Command1_Click()
\'smid nogle tilf. tal ind...
For i = 0 To UBound(bogstav)
test = Chr(i)
bogstav(i) = test
Next i

\' operation ombytning
For i = 0 To UBound(bogstav)
If bogstav(i) = Chr(215) Then bogstav(i) = Chr(237)
If bogstav(i) = Chr(212) Then bogstav(i) = Chr(2)
Next i
End Sub


:)

med en string (havde ikke lige læst hele dit sp...
Dim bogstav(0 To 255) As String
Dim test As String
Private Sub Command1_Click()
test = \"jeg er en glad lille cowboy og i det vilde vest.... med en lasso og en hest der er grøn\"
For i = 0 To Len(test)
bogstav(i) = Mid(test, i + 1, 1)
Next i
\' operation ombytning
For i = 0 To UBound(bogstav)
If bogstav(i) = Chr(215) Then bogstav(i) = Chr(237)
If bogstav(i) = Chr(212) Then bogstav(i) = Chr(2)
Next i
End Sub