Potresti fare così:
strNomeFile = variabile & "." & Right(oUpload.GetFileName(), Len(oUpload.GetFileName())-instrRev(oUpload.GetFileName(),"."))
oUpload.SaveAs strNomeFile