Msgbox("Enter", "GR2")
If edtOSGBGridRef2.Text.Trim.Length < 2 OR edtOSGBGridRef2.Text.Trim.Length > 5 Then
DisplayMsgbox("OSGB Grid Reference Across must be 2 to 5 digits", "Incorrect OSGB Grid Reference Across")
Else
Msgbox("Valid", "GR2")
edtOSGBGridRef3.RequestFocus
End If