Private Function Check3Numbers(ByVal str As String) As Boolean
 
        If String.IsNullOrWhiteSpace(str) Then Return False
        If Not str.Length = 3 Then Return False
 
        For i As Integer = 0 To 2
            If Not Char.IsDigit(str(i)) Then Return False
        Next i
        Return True
    End Function