Crear un archivo log

Dim log As StreamWriter = Nothing
' log = Nothing
Try
log = New StreamWriter("log.txt", False, System.Text.Encoding.UTF8)
registro(log)
Catch ex As Exception
End Try

' Pasar a una función

Public Function registro(ByVal log As StreamWriter) As String
log.WriteLine("texto")
End Function