RosettaCodeData/Task/Binary-strings/VBA/binary-strings-8.vba

7 lines
150 B
Text
Raw Permalink Normal View History

2018-06-22 20:57:24 +00:00
Sub ExtractFromString()
Dim A$, B As String
A = "Hello world"
B = Mid(A, 3, 8)
Debug.Print B 'return : llo worl
End Sub