Opdeling af string.

Select Case Left(strInput,1)

Case \"0\"
\'telefonnummeret starter med 0
Case \"1\"
\'telefonnummeret starter med 1
Case \"2\"
\'telefonnummeret starter med 2
.
.
.

Case \"8\"
\'telefonnummeret starter med 8
Case \"9\"
\'telefonnummeret starter med 9
Case Else
\'det var ikke et tal

End Select

/Jennemaan

Og jeg gætter på at hvis jeg skulle læse mere end sidste tal, så:

Select Case Left(strInput,2)
Case \"12\"
Case \"13\"
Case Else
End Select 

og så kan Case Left vel ændres til Case Right for at læse fra højre side :-)

precis :o)