Метод 1: использование константы VBCrlf для вставки разрывов строк в строку

Dim myString As String
myString = "Hello" & VBCrlf & "World"
MsgBox myString

Выход:

Hello
World

Метод 2. Использование функции Chr для вставки специальных символов в строку

Dim myString As String
myString = "Hello" & Chr(13) & Chr(10) & "World"
MsgBox myString

Выход:

Hello
World

Метод 3. Объединение строк с помощью оператора & 

Dim myString As String
myString = "Hello" & " " & "World"
MsgBox myString

Выход:

Hello World

Метод 4. Использование функции Left для извлечения указанного количества символов из начала строки

Dim myString As String
myString = "Hello World"
Dim extractedString As String
extractedString = Left(myString, 5)
MsgBox extractedString

Выход:

Hello

Метод 5. Использование функции Mid для извлечения указанного количества символов из середины строки

Dim myString As String
myString = "Hello World"
Dim extractedString As String
extractedString = Mid(myString, 7, 5)
MsgBox extractedString

Выход:

World

Метод 6. Использование функции InStr для поиска положения подстроки в строке

Dim myString As String
myString = "Hello World"
Dim position As Integer
position = InStr(myString, "World")
MsgBox position

Выход:

7

Метод 7. Использование функции replace для замены вхождений подстроки в строку

Dim myString As String
myString = "Hello World"
myString = Replace(myString, "World", "Universe")
MsgBox myString

Выход:

Hello Universe