Function SaberiStr() Dim Prvi_string as String ' Dimenzionisana memorijska kao string Dim Drugi_String as String 'Dimenzionisana memorijska kao string Dim Zbir_DvaStringa as String'Dimenzionisana memorijska kao string Prvi_string ="Ja imam" 'Prvi string upisan u memorijsku koja nosi ime Prvi_string Drugi_String="kompjuter" 'Drugi string upisan u memorijsku koja nosi ime Drugi_String Zbir_DvaStringa=Prvi_string & Drugi_String ' Sabrane dvije memorijske u jednu i rezultat je "Ja imam komjuter" ' Isti je retultat ako uradimo i ovako Zbir_DvaStringa="Ja imam" & "kompjuter" end function