Загрузка данных

Private Sub CommandButton1_Click()
    Dim diskPrice As Integer
    Dim i As Integer
    Dim cost As Integer
    Dim outputText As String
    diskPrice = 50
    outputText = "Êîëè÷åñòâî äèñêîâ | Ñòîèìîñòü" & vbCrLf & "--------------------------------------------" & vbCrLf
    For i = 2 To 10
        cost = i * diskPrice
        outputText = outputText & "Äèñêîâ: " & i & vbTab & vbTab & " -  " & cost & " ðóá." & vbCrLf
    Next i
    MsgBox outputText, vbInformation, "Òàáëèöà ñòîèìîñòè"
End Sub