Hi I want to change the value of a charecter within a string
Private Sub ASC(ByRef MyStartString As String)
Dim temp As String
Dim x As Integer = 2
temp = MyStartString
Dim MyChar As Char
Dim MyAsc As Integer
Dim strLength As Integer
strLength = temp.Length
' Now for the fun bit
MyChar = temp.Chars(0)
MyAsc = AscW(MyChar)
MyAsc = MyAsc + 1 'x
MyChar = Chr(MyAsc)
temp.Chars(0) = MyChar ' Chars is ReadOnly
I have looked all over the internet for this one.
Private Sub ASC(ByRef MyStartString As String)
Dim temp As String
Dim x As Integer = 2
temp = MyStartString
Dim MyChar As Char
Dim MyAsc As Integer
Dim strLength As Integer
strLength = temp.Length
' Now for the fun bit
MyChar = temp.Chars(0)
MyAsc = AscW(MyChar)
MyAsc = MyAsc + 1 'x
MyChar = Chr(MyAsc)
temp.Chars(0) = MyChar ' Chars is ReadOnly
I have looked all over the internet for this one.
Last edited: