Añadir espacios en blanco

Este es el codigo que estoy ejecutando.

 Private Sub btnExportaCabecera_Click(sender As System.Object, e As System.EventArgs) Handles btnExportaCabecera.Click
        Dim SaveFileDialog1 As New SaveFileDialog
        SaveFileDialog1.Filter = "Archivo de texto|*.txt"
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim escritor As New StreamWriter(SaveFileDialog1.FileName)
            For Each it As ListViewItem In ListView1.Items
                escritor.WriteLine( _
              it.SubItems(0).Text + "" + _
              it.SubItems(1).Text + "" + _
              String.Format("{0-35}", it.SubItems(2).Text) + "" + _
              it.SubItems(3).Text + "" + _
              it.SubItems(4).Text)
            Next
            escritor.Close()
        End If
    End Sub

El elemento que necesita tener los espacios en blanco es el subitems(2).text, pero tira error. alguna idea?