Replace the following things on the code below:
Text1 = Input TextBox : This box receives the input from user (this is where they type)
Text2 = Result TextBox: This box receives the result of the check (E or W)
-----------------------------------------------
Select Case UCase(Mid(text1.Text, 1, 1))
Case "E"
text2.Text = "E"
Case "W"
text2.Text = "W"
Case Else
text2.Text = "N/A"
End Select
--------------------------------
Put this code into an event, so that it fires when you need it to check what they have entered. If you are not interested in the whole code, simply pay attention to the first line, that is the command you are looking for (MID)
[Mid] Syntax:
Mid(string,start,length) as string
Good luck!