Problemas al subir Archivo(input=file)

[yesmina]

hola amigos,

estoy intentando subir archivos, eso ya lo he logrado, aunke a veces me ocurren problemas, con algunos archivos, y no pesan mas de 500kb

Espero pueden ayudarme. GRACIAS

Este el codigo ke estoy usando:
------------------------------
Dim a As String

Dim ext = Path.GetExtension(MyFile.PostedFile.FileName)
If Not (LCase(ext) = ".doc" Or LCase(ext) = ".pdf") Then
mensaje.Text = "Solo puedes subir archivos .doc ó .pdf"
Exit Sub
Else
Dim TargetPath = "c:\files\" & Path.GetFileName(MyFile.PostedFile.FileName)
MyFile.PostedFile.SaveAs(TargetPath)
mensaje.Text = "Tu archivo se recibio correctamente en:: <b>" & TargetPath & "</b>"
End If