Dim nZahl As Long
 
Dim sBetrag As String
sBetrag = "13,00 DM"
nZahl = Int(Val(sBetrag))

Dim sWort As String
Dim sArray() As String
Dim i As Integer
Dim nLen As Integer
 
sWort = "Hallo"
 
nLen = Len(sWort)
ReDim sArray(nLen)
For i = 1 To nLen
  sArray(i) = Mid$(sWort, i, 1)
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de