Imports System

Public Module Module1

    Public Sub Main()

        Dim s as String = "String"

        Update(s)

        Console.WriteLine(s)

    End Sub

    Public Sub Update(ByRef s as String)

        s += " Updated"

    End Sub

End Module