Tekst validering i input box

Hej
Jeg har lidt problemer med at få valideret min input box, således at der kun accepteres, såfremt input = kun tekst, ingen 0-9,._-!"#¤%&(&()= osv.

Jeg har prøvet følgende kode, som jeg har fundet og prøvet at modificere lidt, men den virker ikke!

Dim strName As String
Dim sTemp As String
Dim iLen As Integer
Dim iCtr As Integer
Dim sChar As String


    strName = Application.InputBox(Prompt:="Enter new platform name. Only Generic procedures for ToE will be visible. Name must be text: A-Z or a-z.", Type:=2, _
          Title:="New Platform", Default:="Platform name here")
         
       
    sTemp = strName
    iLen = Len(sTemp)
   
       
    If iLen > 0 Then
        For iCtr = 1 To iLen
            sChar = Mid(sTemp, iCtr, 1)
           
          If Not sChar Like "[A-Za-z]" Then 
       
            MsgBox "Only text is allowed. (Not 1-9,_-/&()¤# etc."
            Exit Sub
           
      End If
       
    If strName = "Platform name here" Or _
          strName = vbNullString Then

          Exit Sub
   
    End If
   
    If sChar Like "[A-Za-z]" Then
   
            Sheet4.Range("D65536").End(xlUp).Offset(1, 0) = strName
            Sheet1.Range("B8") = strName
                     
        End If
    End Sub

Håber der er nogen der kan hjælpe:)