Tjek TextBox for tal...

Type typContains
cntNumbers As Boolean
cntString As Boolean
cntBoth As Boolean
End Type

Function TextContains(sText As String) As typContains
Dim btArr As Byte, i As Long, bNums As Boolean, bStr As Boolean
btArr = StrConv(sText, vbFromUnicode)
For i = LBound(btArr) To UBound(btArr)
If IsNumeric(Chr(btArr)) Then
  bNums = True
Else
  bStr = True
End If
Next i
If bNums And Not bStr Then TextContains = cntNumbers
If bStr And Not bNum Then TextContains = cntString
If bStr And bNum Then TextContains = cntBoth
End Function