Вообще hDrummer прав - зачем тут строчки
а меняется в бейсике при помощи Replace
Public Function Replace(
ByVal Expression As String,
ByVal Find As String,
ByVal Replacement As String,
Optional ByVal Start As Integer = 1,
Optional ByVal Count As Integer = -1,
Optional ByVal Compare As CompareMethod = CompareMethod.Binary
) As String

Ex.
Dim myString As String = "Shopping List"
Dim aString As String
' Returns "Shipping List".
aString = Replace(myString, "o", "i")

Это все есть в MSDN или Help офиса - заглядывайте иногда :)