Function RowIndexOfCurrentCell() As Integer
RowIndexOfCurrentCell = Application.Caller.Row
End Function

Function Ro() As Integer
Ro = ActiveCell.Row
End Function

Function RowIndexOfCurrentCell()
...
End Function

Function F1() As Integer

i= Application.Sum(Range("B5:B10"))
i = WorksheetFunction.Sum(Range("B5:B10"))
i= Excel.Application.Sum(Range("B5:B10"))
i= Excel.WorksheetFunction.Sum(Range("B5:B10"))
i= Application.WorksheetFunction.Sum(Range("B5:B10"))
F1 = i
End Function

Function F(Индекс_Крестика As Integer)
F=Индекс_Крестика
End Function

public void MyFunction(int a, int b ){ 
c = a*b;  //это имеет смысл, если переменная public static...
}
//И затем вызывать её!
MyFunction(1,2)

Public Function MyFunction(a As Integer, b As Integer)
c=a*b   'это имеет смысл, если переменная public
End Function
Public Sub MySub()
MyFunction(1,2)      'здесь строка краснеет(даёт ошибку)
End Sub

Public Sub DeleteAllFolders()
Dim Name_1$, Path_1$, z%, Folders$()
Set fs = CreateObject("Scripting.FileSystemObject")
On Local Error Resume Next
Path_1 = ThisWorkbook.Path & "\"
Name_1 = Dir(Path_1, vbDirectory)
Do While Name_1 <> ""
If GetAttr(Name_1) = vbDirectory And Name_1 <> "." Then
z = z + 1
ReDim Preserve Folders$(1 To z)
Folders(z) = Name_1
If fs.folderexists(Path_1 & Name_1) Then Call fs.DeleteFolder(Path_1 & Name_1)
End If
Name_1 = Dir()
Loop
MsgBox "Удалено" & vbNewLine & Join(Folders, vbLf)
End Sub

Sub CreateFolder() ' создание
Dim paths As String
 paths = ThisWorkbook.path + "\New Folder"
 MkDir (paths)
End Sub

Sub DeleteFolder()
Dim paths As String
 paths = ThisWorkbook.path  + "\New Folder"
 Set fs = CreateObject("Scripting.FileSystemObject" )
 If fs.folderexists(path) Then
 Call fs.DeleteFolder(path)
 End If
 End Sub

Public Sub Perebor()
Dim MyPath As String
MyPath = ThisWorkbook.path +"\"
PPP (MyPath)
End Sub

Private Sub PPP(sPath)
 Set objFolder = objFSO.GetFolder(sPath)
 For Each objFolder In objFolder.SubFolders
 objFolder.Delete
 Next
End Sub

Public y
Public Sub Комманда1_Click()
Dim y As Integer
y = 1
Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Search FSO.GetFolder("E:\1\")
End Sub

Public Sub Search(Fold As Object)
   

 Dim SubFold As Object, Fil As Object
   Debug.Print Fold
   Cells(y, 1).Value = Fold: y = y + 1
   Application.Wait (Now + TimeValue("0:00:1"))
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Cells(y, 1).Value = SubFold: y = y + 1
     Application.Wait (Now + TimeValue("0:00:1"))
     Debug.Print SubFold
     Search SubFold
   Next SubFold
   For Each Fil In Fold.Files
        Debug.Print Fil
        Cells(y, 1).Value = Fil: y = y + 1
        Application.Wait (Now + TimeValue("0:00:1"))
        Next Fil
   Exit Sub
ErrHandle:
  ' MsgBox "Нет допуска к папке """ & Fold.Path & """"
  ' Err.Clear
End Sub

Sub GetFileNames()
y = 1
Path = "E:\"                  'задать место (папку)
                                   'Mask = "*.txt"
fname = Dir(Path)          'fname = Dir(Path & Mask)
While fname <> ""
a = Split(fname, ".")
Cells(y, 1).Value = Path & fname '
Cells(y, 2).Value = fname
Cells(y, 3).Value = a(0)
Cells(y, 4).Value = a(1)
fname = Dir                'выбрать следующий файл
y = y + 1
Wend

End Sub

Public A
Public Function ReadAll(N) ' так можно считать файл в массив A 
Dim  Name As String
Name = CStr(N) + ".txt"
iTempPath = ThisWorkbook.Path + "\" + Name
A = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath).OpenasTextStream(1).ReadAll, vbNewLine)
End Function


Public Sub Test2()
ReadAll (1)
[A1] = A(0)
End Sub

 A(1)=1011010111111
 A(2)= 0101010101011
 A(3)= 0101011011010
 A(4)= 0010101010101
 A(5)= 0101010111011

Public MyArray() As String
Public Function CopyToArray(FileName As Integer) As String 'так можно копировать каждую строку .txt в массив
 Dim Name As String
 Name = CStr(FileName) + ".txt"
 Open ThisWorkbook.Path + "\" + Name For Input As #1
 i = 1
 While EOF(1) <> True
 ReDim Preserve MyArray(1 To i)
  Line Input #1, MyArray(i) ' Выделить 1-ю строку при 1-ом вызове команды Line Input
 ' и копировать строку в MyArray()
  i = i + 1
  Wend
 exit1: Close #1
End Function

Public Sub Test()
CopyToArray (1)
u = UBound(MyArray)
[a2]= MyArray(u) 'Вывести последнюю строку
End Sub

Dim objWrdApp As Word.Application
Dim objWrdDoc As Object
Set objWrdApp = CreateObject("Word.Application" ;) 
'objWrdApp.Visible = True
Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Path & "\" & "1.docx") 

'---------------------------------------
'здесь должен быть код word vba
'--------------------------------------
objWrdDoc.Close True
objWrdApp.Quit
Set objWrdDoc = Nothing: Set objWrdApp = Nothing

Public lst() As Variant
Public Function CopyToArray() As Variant
Dim AWind As Window
Dim APane As Pane
Dim Pages As Pages
Dim Page As Page
Dim Rect As Rectangle
Dim LineCount As Long
'Dim lst() As Variant
Dim Line As Line

 Set AWind = Application.ActiveWindow
 Set APane = AWind.ActivePane
 Set Pages = APane.Pages
'---------------------------------------------------------------------
 For Each Page In Pages
 If Page.Rectangles.Count = 1 Then
 Set Rect = Page.Rectangles(1)
 Else
 Set Rect = Page.Rectangles(2)
 End If
 LineCount = LineCount + Rect.Lines.Count
 Next Page
 LineCount = LineCount - 1
'---------------------------------------------------------------------
 ReDim Preserve lst(0 To LineCount)
 
'---------------------------------------------------------------------
 i = -1
 For Each Page In Pages
 If Page.Rectangles.Count = 1 Then
 Set Rect = Page.Rectangles(1)
 Else
 Set Rect = Page.Rectangles(2)
 End If
 For Each Line In Rect.Lines
 i = i + 1
 lst(i) = Line.Range.Text
 Next Line
 Next Page
'---------------------------------------------------------------------

 'CopyToArray = lst

End Function

Public Sub Macros1()
CopyToArray 'копировать все строки в массив lst, внимание индексация начинается с 0
MsgBox (lst(2)) 'вывести на экран 3-ю строку
End Sub