Передача параметра по ссылке - VB

Формулировка задачи:

Народ, подскажите, как организуется передача параметра в процедуру по ссылке. Делаю так: Private Function GetNextField(ByRef fStr As String) As String Внутри fStr должна измениться. Потом эта функция вызывается так: Dim fStr as String tmpstr = GetNextField(fStr) Вроде правильно, но в этой строке VB возвращает ошибку передачи по ссылке. Что я не так делаю?

Решение задачи: «Передача параметра по ссылке»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
  Dim fStr As String, fStr2 As String
  fStr = 'xxx'
  fStr2 = GetNextField(fStr)
  Debug.Print fStr, fStr2
  Unload Me
End Sub
 
Private Function GetNextField(ByRef fStr As String) As String
  GetNextField = fStr & 'aaa'
  fStr = fStr & 'bbb'
End Function
                        