Bunun yerine aşağıdaki örnek koddaki gibi sütun ve bu sütunların genişliklerinin tanımlaması ile mesajınızın gerekli bölümlerini bu sütunlara işleyebilir,
Sub MsgBoxSpacing()
Dim msgValue As String
Const Clwdt1 As Long = 35
Const Clwdt2 As Long = 35
Const Clwdt3 As Long = 35
msgValue = AppendSpace("Son Gün", Clwdt1) & vbTab & AppendSpace("Plaka", Clwdt2) & _
vbTab & AppendSpace("Araç Tipi", Clwdt3)
msgValue = msgValue & vbNewLine & AppendSpace("01.01.1990", Clwdt1) & vbTab & _
AppendSpace("34 ABC 34", Clwdt2) & vbTab & AppendSpace("Dorse", Clwdt3)
msgValue = msgValue & vbNewLine & AppendSpace("02.01.1990", Clwdt1) & vbTab & _
AppendSpace("35 XYZ 35", Clwdt2) & vbTab & AppendSpace("Dorse", Clwdt3)
MsgBox msgValue, vbOKOnly
End Sub
Bu fonksiyon ile bu sütunlar arası düzenli boşlukları yerleştirebilirsiniz.
Private Function AppendSpace(textValue As String, textLength As Long) As String
Dim tmp_str As String
If Len(textValue) > textLength Then
tmpstr = Left(textValue, textLength)
Else
tmpstr = textValue & Space(textLength - Len(textValue))
End If
Debug.Print Len(tmpstr)
AppendSpace = tmpstr
tmpstr = vbNullString
End Function
Bu kodu kendi çalışmanıza uyarlayabilirsiniz ne yazık ki zaman sıkıntısı nedeni ile ben üzerinde çalışamıyorum şu an.