Code:
Private Sub txtCity_GotFocus()
   sForText = "txtCity"
End Sub

Private Sub txtCity_LostFocus()
         If txtCity = "" Then
  picMsgBox.Visible = True
      picMsgBox.Top = 600
     picMsgBox.Left = 1560
           txtMyMSG = ""
           txtMyMSG = "Please Enter A City Or Township!"
         Else
     txtState.SetFocus
...