....
....

....

Dim coluna as Short = 0

metodoQualquer(coluna)

msgbox(coluna)


public sub metodoQualquer(ByRef coluna as short) 
coluna += 1
end sub