text boxes afterupdate

[DirtDawg]

Hello,

Question if I have 1text box and input a number with a letter ex. 32e45. is it possible for a 2text box to find the e and input east into the 2text box.

N=north S=south and so on. the letter will not always be in the 3rd place though

 

[VBslammer]

Private Sub Text1_AfterUpdate()

  Dim strTemp As String
  
  strTemp = UCase(Me!Text1)
  
  If InStr(strTemp, "E") > 0 Then
    Me!Text2 = "East"
  ElseIf InStr(strTemp, "W") > 0 Then
    Me!Text2 = "West"
  ElseIf InStr(strTemp, "N") > 0 Then
    Me!Text2 = "North"
  ElseIf InStr(strTemp, "S") > 0 Then
    Me!Text2 = "South"
  End If
    
End Sub

VBSlammer