Private Sub Command1_Click()
Dim PfadundName$
PfadundName$ = "c:\Test.avi"
If FileLen(PfadundName$) < 0 Then
' Datei ist größer als 2GB
Print 2147483648# + (2147483648# - Abs(FileLen(PfadundName$)))
Else
' Datei ist kleiner als 2GB also **normal**
Print FileLen(PfadundName$)
End If
End Sub