This run:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim var As New Microsoft.Office.Interop.Word.Application()
Dim ciao As New Microsoft.Office.Interop.Word.Document
ciao.Activate()
var.Documents.Open(FileName:="C:\Users\f.irrera\Desktop\Fascicolo.doc")
var.Selection.WholeStory()
var.Selection.Copy()
var.ChangeFileOpenDirectory("C:\Users\f.irrera\Desktop\")
var.ActiveDocument.SaveAs2(FileName:="Fascicolo.daf", LockComments:=False, Password:="", WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, CompatibilityMode:=0)
End Sub