Hello VB Members,

I am total a newbeginner to VB.

I got help for a time ago, from different people to make this function in VBA.

The problem is I want to remake it to an application in Visual studio.

Code:
Sub Run_Two()

Dim xPath As String

myOrgName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

xPath = Application.ActiveWorkbook.Path

MkDir xPath & "\FileSheets"
myLangPath = xPath & "\FileSheets"
MkDir xPath & "\LangCombs"


Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=myLangPath & "\" & myOrgName & "_" & xWs.Name & ".xls"
    Application.ActiveWorkbook.Close False
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Could someone help me or give me info about tutorials I googled some how to remake it as VB script

Thank you in advance