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
