exploding a string into characters 1

[JazzLeg]

Hi,
I have string which i would like to break into individual characters stored in an array,

e.g strChar = info

arrayChar(0) = i
arrayChar(0) = n
arrayChar(0) = f
arrayChar(0) = o

Also, does anyone know how to format strings into upper or lower case?

Thanks

 

[sfvb]

Dim arrayChar()
Dim strChar

strChar = "info"

ReDim arrayChar(Len(strChar))
For idx = 1 to UBound(arrayChar)
   arrayChar(idx) = Mid(strChar,idx,1)
Next

For idx = 1 To UBound(arrayChar)
   MsgBox ("Character " & idx & " = " & arrayChar(idx))
Next

For upper and lower case you use the LCase and UCase functions. Ex:

MyStr = LCase("AaBbCc")

   'MyStr is now "aabbcc"

MyStr = UCase("AaBbCc")

   'MyStr is now "AABBCC"