Maybe try this?

Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain

Public Sub Main()

Dim vars As Variables

Dts.VariableDispenser.LockOneForWrite("vMyVar", vars)

vars(0).Value = "Hello World"

vars.Unlock()

Dts.TaskResult = Dts.Results.Success

End Sub

End Class