文字列の両端のみスペースを取り除いて文字列を抜き出す

＜分類：値抜き取り＞
＜使用例：文字列( 123456789 ABCDEF )から(123456789 ABCDEF)＞
＜プログラム例＞
＜分類：値抜き取り＞

Sub 使用例()
   
   Dim s As String

   s = "   123456789   ABCDEF   "
   
   MsgBox (共通_文字列抜出し両端空白削除(s))

End Sub

Function 共通_文字列抜出し両端空白削除(p1)
'p1:対象文字列

   Dim i As Long
   Dim mojisu As Long
   Dim mojista As Long
   Dim mojiend As Long
   
   mojisu = Len(p1)
   
   共通_文字列抜出し両端空白削除 = ""

   For i = 1 To mojisu - 1
       If Mid(p1, i, 1) = " " Or _
          Mid(p1, i, 1) = "　" Then
       Else
          mojista = i
          Exit For
       End If
   Next i
  
  
   For i = mojisu To 1 Step -1
       If Mid(p1, i, 1) = " " Or _
          Mid(p1, i, 1) = "　" Then
       Else
          mojiend = i
          Exit For
       End If
   Next i
   
    共通_文字列抜出し両端空白削除 = Mid(p1, mojista, mojiend - mojista + 1)
End Function