Private Sub Form_Load()
Dim iHi%, iLow%, n%, x%
Dim sZahl$
 
iHi = 0 'Variable für höchste Zahl auf Minimum (0) setzen
iLow = 9 'Var für niedrigste Zahl auf Maximum (9) setzen
sZahl = CStr(1542)
For n = 1 To Len(sZahl)
  x = Val(Mid$(sZahl, n, 1))
  iHi = IIf(x > iHi, x, iHi)
  iLow = IIf(x < iLow, x, iLow)
Next n
Debug.Print "Hi = " & iHi, "Low = " & iLow
End Sub