Primeiro vá no menu "Project...References"
Escolha o item "Microsoft Scripting Runtime"
Depois é só fazer deste modo:
Dim a As FileSystemObject
Private Sub Command1_Click()
Set a = New FileSystemObject
'pode ser qualquer outro executável
MsgBox a.GetFileVersion("C:Arquivos de programasMicrosoft AntiSpywaregcasDtServ.exe")
End Sub
blz??
qq dúvida é só postar
t+