日期

 Private Function RegCheck(ByVal Source As String, ByVal StrLength As Integer, ByVal MaskChar As String) As String

        Dim nLength As Integer = 0
        Dim strTmp As String = String.Empty

        If Source.Length <= StrLength Then
            nLength = StrLength - Source.Length
            For i As Integer = 0 To nLength - 1
                strTmp = strTmp & MaskChar
            Next
        End If

        strTmp = strTmp & Source
        Return strTmp

    End Function