There is undoubtedly a regular expression that would work, but this seems to work just a well:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Select Case True
    Case Selection Like "###/##", Selection Like "##/##", Selection Like "#/##"
      'Eureka
    Case Else
      Beep
  End Select
End Sub