前後の改行・タブ・空白などすべて削除する関数

'文字列の前後(タブ、空白、改行)をtrimする関数
Public Function Ntrim(trg As String) As String
    Dim ret As String
    ret = Nrtrim(trg)
    Ntrim = Nltrim(ret)
End Function

'文字列の右側のみtrim
Public Function Nrtrim(trg As String) As String
    Dim i As Integer
    Dim ret As String
    Dim rightChr As String
    
    ret = trg
    If Len(ret) > 0 Then
        For i = 1 To 100
            rightChr = Right(ret, 1)
            If rightChr = Chr(9) _
                    Or rightChr = Chr(10) _
                    Or rightChr = Chr(11) _
                    Or rightChr = Chr(13) _
                    Or rightChr = Chr(32) _
                    Or rightChr = " " _
                    Then
                ret = Left(ret, Len(ret) - 1)
            Else
                GoTo outLoop
            End If
        Next i
    End If
outLoop:
    Nrtrim = ret
End Function

'文字列の左側のみtrim
Public Function Nltrim(trg As String) As String
    Dim i As Integer
    Dim ret As String
    Dim leftChr As String
    
    ret = trg
    If Len(ret) > 0 Then
        For i = 1 To 100
            leftChr = Left(ret, 1)
            If leftChr = Chr(9) _
                    Or leftChr = Chr(10) _
                    Or leftChr = Chr(11) _
                    Or leftChr = Chr(13) _
                    Or leftChr = Chr(32) _
                    Or leftChr = " " _
                    Then
                ret = Right(ret, Len(ret) - 1)
            Else
                GoTo outLoop
            End If
        Next i
    End If
outLoop:
    Nltrim = ret
End Function

解説

trimだけでは、タブしか削除できないようなので、
新しい関数を作成しました。

標準モジュールに書いて使用してください。

ちなみに、下記の繰り返しの回数を調整すると、削除量が調整できます。

For i = 1 To 100