Si Textbox1 son números que la macro lo copie como numero y si contiene letras, como texto

Hola necesito su ayuda, tengo esta macro que me ayudo el experto aprendemos,

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If ListBox1.Value = "" Or IsNull(ListBox1.Value) Then

MsgBox "Seleccione un destino en la lista", vbCritical, "INVENTARIO"

Exit Sub

End If

If TextBox2 = "" Then

MsgBox "Capture un IMEI", vbCritical, "INVENTARIO"

Exit Sub

End Iflin = Application.Match(Val(TextBox2), Columns("B"), 0)If Not IsError(lin) Then Cells(lin, "A") = Date Cells(lin, "G") = Val(TextBox1) Cells(lin, "F") = ListBox1 TextBox2 = "" TextBox2.SetFocus Cancel = True Call traspasarElse MsgBox "IMEI no encontrado", vbCritical, "INVENTARIO"End IfEnd Sub