Dim testString As String = ""
        Dim maxLen As Integer = 15
        Dim testLen As Integer = 0
        Dim diffLen As Integer = 0

        testString = TextBox1.Text.Trim
        testLen = testString.Length
        diffLen = maxLen - testLen

        If diffLen > 0 Then 'Vuol dire che la stringa è più corta del massimo previsto (maxLen) e quindi devo aggiungere degli spazi
            testString = testString & New String(" ", diffLen)
        'e la reinserisco nella text Box
        TextBox1.Text = testString
        End If