Never mind, I just fixed my own problem.

VB Code:
  1. Public Function Devour(ByVal FullFileName As String) As Long

  2.   Dim ReturnedString As String * 256

  3.   Dim ReturnedSize As Long

  4.  
  5.   ReturnedSize = GetPrivateProfileString ("Properties", "WorkStation", "", ReturnedString, 256, FullFileName)

  6. End Function

You have to give the string a length.