Private Sub PadRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PadRight.Click
Dim sAE As String = ""
Dim sAG As String = ""
Dim testAE As String = ""
Dim testEA As String = ""
sAE = "ABCDE"
sAG = "ABCDEFG"
testAE = sAE.PadRight(7, "_")
testEA = sAE.PadLeft(7, "_")
MsgBox(sAG & vbCrLf & sAE & vbCrLf & testAE & vbCrLf & testEA & vbCrLf & sAG)
End Sub