數值靠右格式化。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Private
Dim S As String S = FormartLeftNum(123, 10) MsgBox(S) '輸出結果為 1230000000 
End Sub ''' <summary> ''' 數值靠右格式化。 ''' </summary> ''' <param name="Value">原數值。</param> ''' <param name="Length">字串長度。</param> 
Private Function FormartLeftNum(ByVal Value As Integer, ByVal Length As Integer) As String 
Private Dim iValueLen As Integer Dim iZeroLen As Integer Dim sZeroStr As String iValueLen = Value.ToString.Length iZeroLen = Length - iValueLen If iZeroLen > 0 Then sZeroStr = Strings.StrDup(iZeroLen, "0") Else sZeroStr = String.Empty End If Return Value.ToString & sZeroStr 
End Function