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