Catch ex As Exception GetTTCFTPini = {"Nothing"} End Try
говорится в
GetTTCFTPini = {"Nothing"}
ошибка BC30201: ожидается выражение
Какую версию Vb.Net вы используете.Используемый вами синтаксис массива был добавлен в VS 2010 (или, возможно, в 2008 году) и не будет работать в более старых версиях.Если это так, попробуйте следующее вместо
GetTTCFTPini = New Object() { "Nothing" }