Descobri onde estava o erro, porém necessito que o código inicie desta maneira FO0001.
À medida que cadastra novos fornecedores ele acrescente 1 ao código FO0002... E assim por diante.

Após salvar os dados, se eu desejar cadastrar um novo fornecedor, eu clico em novo, porém o código novo não é gerado. tenho que sair do formulário, para ser gerado um novo

Coloque o codigo que esta no inicialize em um modulo e chame o codigo no evento inicialize e no botao.

Private Sub CommandButton1_Click()
      Call Codigo2

End Sub

Private Sub UserForm_Initialize()
      Call Codigo2
    
    End Sub

Sub Codigo2()

  Dim Codigo
        Dim rLast As String
    
        Cod_Fornecedor.Caption = False
    
        With Sheets("Fornecedor")
           
            'Obt?m a ?ltima linha da Planilha:
            rLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        
            txtCod.Text = "FO" & rLast
            '& "-2012"
    
        End With
    
        Codigo = Cod_Fornecedor.Caption
End Sub