Public Function CopyString(ByRef strTo, ByVal strFrom)

  strTo = strFrom
  
End Function