.GetData(strData) .AppendText(GatherData(strData) & vbCrLf)