Пример 40

Function Sconcat(argl As String, arg2 As String) As String

argl = Trim(argl)

arg2 = Trim(arg2)

Sconcat = argl & arg2

End Function

Sub Test_Sconcat()

Dim a1 As String

Dim a2 As String

a1 = " Значение a1:"

a2 = " Значение a2:"

MsgBox a1 & a2, , "До вызова Sconcat"

MsgBox Sconcat(a1, a2), , "При вызове Sconcat"

MsgBox a1 & a2, , "После вызова Sconcat"

End Sub