Il motivo per cui non ti vengono restituiti errori potrebbe essere nel fatto che non gestisci
l'evento StateChanged di Inet.
Prova così:

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim vtData As Variant ' Data variable.
Select Case State
' ... Altri valori...
Case icError ' 11
'Errore...
vtData = Inet1.ResponseCode & ":" & vbCrLf & Inet1.ResponseInfo
MsgBox "Errore: " & vtData, vbOKOnly, "FTP - ERRORE"
Case icResponseCompleted ' 12
vtData = Inet1.GetChunk(1024, icString)
'Operazione Completata...

End Select
End Sub

Penso che l'errore sia nell'indirizzo che passi, innanzitutto credo che basti inserire nella proprietà
RemoteHost "ftp.supereva.it", e poi penso che nel metodo Execute non sia necessario ripetere l'URL.
Prova così:

Inet1.Protocol = icFTP
Inet1.RemoteHost = "ftp.supereva.it"
Inet1.UserName = "miauser"
Inet1.Password = "miapassword"
Inet1.Execute , "SEND C:\Documenti\uninav.txt uninav.txt"

Ad ogni modo con la gestione dell'evento StateChanged dovresti riuscire a sapere esattamente cosa non va.
Spero riuscirai a risolvere il problema, fammi sapere.
Ciao!!
:tongue: