Дан текстовый файл, выровненный по левому краю. Выровнять текст по центру - VB

Option Explicit
 
Private Sub Command1_Click()
    Dim S() As String, ff As Integer, i As Integer, n As Integer, cSp As String
    On Error GoTo m
    ff = FreeFile
    Open App.Path & "\1.txt" For Input As #ff
         Do Until EOF(ff)
             n = n + 1
             ReDim Preserve S(n)
             Input #ff, S(n)
             If Len(S(n)) > 50 Then
                 MsgBox "Длина строки №" & n & " не соответствует заданию(более 50 символов)"
                 GoTo m
             End If
         Loop
    Close #ff
    ff = FreeFile
    Open App.Path & "\1.txt" For Output As #ff
       For i = 1 To UBound(S)
            If Len(S(i)) Mod 2 <> 0 Then S(i) = " " & S(i)
            cSp = String((50 - Len(S(i))) / 2, " ")
            S(i) = cSp & S(i) & cSp
            Print #ff, S(i)
       Next i
    Close #ff
    MsgBox "OK"
Exit Sub
m:  MsgBox "Error"
End Sub