Someone

Private Sub txtFname_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles txtFname.TextChanged
       If txtFname.Text <> "" Then
           If IsNumeric(txtFname.Text) = False Then
               lblSname.Visible = True
               txtSname.Visible = True
           Else
               MsgBox("Text Only Field")
               txtFname.Text = ""
               lblDOB.Visible = False
               txtDOB.Visible = False
           End If
       Else
          lblDOB.Visible = False
          txtDOB.Visible = False
       End If
   End Sub